﻿Public Class clsFile
    Public Enum FileType
        Directory = 1
        File = 2
    End Enum
    Private _path As String
    Private _name As String
    Private _type As FileType

    Sub New(pPath As String, pName As String, pType As FileType)
        _path = pPath
        _name = pName
        _type = pType
    End Sub

    Public Property Path As String
        Get
            Return _path
        End Get
        Set(value As String)
            _path = value
        End Set
    End Property

    Public Property Name As String
        Get
            Return _name
        End Get
        Set(value As String)
            _name = value
        End Set
    End Property

    Public Property Type As String
        Get
            Return _type
        End Get
        Set(value As String)
            _type = value
        End Set
    End Property

End Class

Public Class clsFiles
    Inherits List(Of clsFile)
End Class
